home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / TestCopySpeed.asc < prev    next >
Text File  |  1980-03-12  |  696b  |  39 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-98    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. 'Teste de vitesse de la fonction Copy/Copy Mem 
  12. '
  13. A$="Philippe..."
  14. A=Varptr(A$)
  15. B$="Philippe..."
  16. B=Varptr(B$)
  17. '
  18. E=Execall(-132)
  19. '
  20. Timer=0
  21. '
  22. For T=0 To 50000
  23.    'Amos
  24.    Copy A,A+Len(A$) To B
  25. Next T
  26. '
  27. Print "Amos: ";Timer
  28. '
  29. Timer=0
  30. '
  31. For T=0 To 50000
  32.    'IExt
  33.    Copy Mem A,Len(A$) To B
  34. Next T
  35. '
  36. Print "IExt: ";Timer
  37. '
  38. E=Execall(-138)
  39.